(archive-mode): Locally set file-precious-flag.

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 0085c13e47e6fa0154799319e8e5a875a30d608f..cc9f10531e74061895b3580f1ae1e7d243e6f55c 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -526,6 +526,10 @@ archive.
        (make-local-variable 'local-enable-local-variables)
        (setq local-enable-local-variables nil)
 
+       ;; Prevent loss of data when saving the file.
+       (make-local-variable 'file-precious-flag)
+       (setq file-precious-flag t)
+
        (make-local-variable 'archive-read-only)
        ;; Archives which are inside other archives and whose
        ;; names are invalid for this OS, can't be written.